From: Chong Yidong <cyd@stupidchicken.com>
Date: Mon, 7 Dec 2009 16:18:42 +0000 (+0000)
Subject: * vc-bzr.el (vc-bzr-annotate-command): More elegant form for last
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~324^2~9025
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=7dcff5dbd54f197c68c57a7d24e18b073442dc34;p=emacs.git

* vc-bzr.el (vc-bzr-annotate-command): More elegant form for last
change.  Suggested by David Kastrup.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7bf88a852ac..eeefd6501aa 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -6,6 +6,9 @@
 
 2009-12-07  Chong Yidong  <cyd@stupidchicken.com>
 
+	* vc-bzr.el (vc-bzr-annotate-command): More elegant form for last
+	change.  Suggested by David Kastrup.
+
 	* simple.el (compose-mail): Check for incompatibilities and warn.
 	(compose-mail-user-agent-warnings): New option.
 
diff --git a/lisp/vc-bzr.el b/lisp/vc-bzr.el
index ef12f19d2de..13a3eb12b16 100644
--- a/lisp/vc-bzr.el
+++ b/lisp/vc-bzr.el
@@ -579,8 +579,7 @@ property containing author and date information."
 	       (unless tag
 		 (setq tag
 		       (propertize
-			(concat rev " " (substring (concat author "       ")
-						   0 7))
+			(format "%s %-7.7s" rev author)
 			'help-echo (format "Revision: %d, author: %s, date: %s"
 					   (string-to-number rev)
 					   author date)